home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / src / wangisrc.lha / wangi / z / oldwp / Lib / test.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-26  |  272b  |  19 lines
  1. Program Test;
  2.  
  3. Uses
  4.     Exec, wangi;
  5.  
  6. Var
  7.     l : LONG;
  8.     
  9. Begin
  10.     WangiBase := OpenLibrary('wangi.library',0);
  11.     if wangibase <> NIL then begin
  12.         Writeln(Wangi1);
  13.         Writeln(Wangi2(5));
  14.         Writeln(Wangi3(5));
  15.         CloseLibrary(WangiBase);
  16.     End else
  17.         Writeln('cant open lib!!!');
  18. End.
  19.